From 64c9fa4bd2ffb9bfb68c3cc6178faf138660ae06 Mon Sep 17 00:00:00 2001
From: =?utf8?q?=C3=98yvind=20Kol=C3=A5s?= <ok@src.gnome.org>
Date: Mon, 26 Sep 2005 21:49:19 +0000
Subject: [PATCH] reorganizing babl-stats

---
 babl/Makefile.am             |   1 +
 babl/babl-fish-stats.c       | 308 +++++++++++++++++++++++++++++++++++
 babl/babl.c                  |  12 ++
 tests/babl_fish_path_dhtml.c | 284 +-------------------------------
 4 files changed, 322 insertions(+), 283 deletions(-)
 create mode 100644 babl/babl-fish-stats.c

diff --git a/babl/Makefile.am b/babl/Makefile.am
index bcc92a4..dccccab 100644
--- a/babl/Makefile.am
+++ b/babl/Makefile.am
@@ -16,6 +16,7 @@ c_sources =				\
 	babl-extension.c		\
 	babl-fish.c			\
 	babl-fish-simple.c		\
+	babl-fish-stats.c		\
 	babl-fish-reference.c		\
 	babl-fish-path.c    	 	\
 	babl-format.c			\
diff --git a/babl/babl-fish-stats.c b/babl/babl-fish-stats.c
new file mode 100644
index 0000000..b34b03c
--- /dev/null
+++ b/babl/babl-fish-stats.c
@@ -0,0 +1,308 @@
+/* babl - dynamically extendable universal pixel fish library.
+ * Copyright (C) 2005, Øyvind Kolås.
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Lesser General Public
+ * License as published by the Free Software Foundation; either
+ * version 2 of the License, or (at your option) any later version.
+ *
+ * This library is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+ * Lesser General Public License for more details.
+ *
+ * You should have received a copy of the GNU Lesser General
+ * Public License along with this library; if not, write to the
+ * Free Software Foundation, Inc., 59 Temple Place, Suite 330,
+ * Boston, MA 02111-1307, USA.
+ */
+
+#include "babl-internal.h"
+
+static FILE *output_file = NULL;
+static int qux=0;
+
+static char *utf8_bar[]={" ","·","▁","▂","▃","▄","▅","▆","▇","█"};
+//static char *utf8_bar[]=  {"!","▁","▃","▅","▇","█","!","!","!"};
+//static char *utf8_bar[]={"·", "█", "▇", "▆", "▅", "▄", "▃", "▂", "▁", };
+//static char *utf8_bar[]={" ","1","2","3","4","5","6","7","8"};
+
+static int
+table_destination_each (Babl *babl,
+                        void *userdata)
+{
+  Babl *source = userdata;
+  Babl *destination = babl;
+
+  if ((qux++) % babl_formats_count () == qux/ babl_formats_count ())
+     fprintf (output_file, "<td class='cell'>&nbsp;</td>");
+  else
+    {
+      Babl *fish = babl_fish (source, destination);
+
+      babl_assert (fish);
+
+      
+      switch (fish->class_type)
+        {
+          case BABL_FISH_PATH:
+            
+            fprintf (output_file, "<td class='cell'%s><a href='javascript:o()'>%s",
+               fish->fish.processings > 0 ? " style='background-color: #69f'":"",
+            utf8_bar[fish->fish_path.conversions]);
+
+            {
+              int i;
+              fprintf (output_file, "<div class='tooltip'>");
+              fprintf (output_file, "<h3><span class='g'>path</span> %s <span class='g'>to</span> %s</h3>", source->instance.name, destination->instance.name);
+              if (fish->fish.processings > 0)
+                {
+                  fprintf (output_file, "<span class='g'>Processings:</span>%i<br/>", fish->fish.processings);
+                  fprintf (output_file, "<span class='g'>Pixels:</span>%li<br/>", fish->fish.pixels);
+                }
+              fprintf (output_file, "<table>\n");
+
+                  fprintf (output_file, "<tr>");
+                  fprintf (output_file, "<td><em>conversion</em></td>");
+                  fprintf (output_file, "<td style='text-align:right'><em>cost</em></td>");
+                  fprintf (output_file, "<td style='text-align:right'><em>error</em></td>");
+                  fprintf (output_file, "</tr>");
+
+               for (i=0; i< fish->fish_path.conversions; i++)
+                 {
+                  fprintf (output_file, "<tr>");
+                  fprintf (output_file, "<td>%s</td>", BABL(fish->fish_path.conversion[i])->instance.name);
+                  fprintf (output_file, "<td class='r'>%li</td>", babl_conversion_cost (&BABL(fish->fish_path.conversion[i])->conversion));
+                  fprintf (output_file, "<td class='r'>%e</td>", babl_conversion_error (&BABL(fish->fish_path.conversion[i])->conversion));
+                  fprintf (output_file, "</tr>");
+                 }
+
+                  fprintf (output_file, "<tr>");
+                  fprintf (output_file, "<td><em>total</em></td>");
+                  fprintf (output_file, "<td class='r'><em>%3.0f</em></td>", fish->fish_path.cost);
+                  fprintf (output_file, "<td class='r'><em>%e</em></td>", fish->fish.error);
+                  fprintf (output_file, "</tr>");
+              fprintf (output_file, "</table>");
+              fprintf (output_file, "</div>");
+            }
+            fprintf (output_file, "</a></td>\n");
+            break;
+          case BABL_FISH_REFERENCE:
+            fprintf (output_file, "<td class='cell'%s><a href='javascript:o()'>&nbsp",
+               fish->fish.processings > 0 ? " style='background-color: #69f'":"");
+            fprintf (output_file, "<div class='tooltip'>");
+            fprintf (output_file, "<h3><span class='g'>Reference</span> %s <span class='g'>to</span> %s</h3>", source->instance.name, destination->instance.name);
+
+              if (fish->fish.processings > 0)
+                {
+                  fprintf (output_file, "<span class='g'>Processings:</span>%i<br/>", fish->fish.processings);
+                  fprintf (output_file, "<span class='g'>Pixels:</span>%li<br/>", fish->fish.pixels);
+                }
+            fprintf (output_file, "</div>");
+            fprintf (output_file, "</a></td>\n");
+            break;
+         default:
+            babl_assert (0);
+            break;
+        }
+    }
+  return 0;
+}
+
+static int source_no=0;
+
+static int
+table_source_each (Babl *babl,
+                   void *userdata)
+{
+  char expanded_name[512];
+  const char *s;
+  char *d;
+
+  s=babl->instance.name;
+  d=&expanded_name[0];
+
+  while (*s)
+    {
+      switch (*s)
+        {
+          case ' ':
+            *(d++)='&';
+            *(d++)='n';
+            *(d++)='b';
+            *(d++)='s';
+            *(d++)='p';
+            *(d++)=';';
+            *(d)  ='\0';
+            s++;
+            break;
+          default:
+            *(d++)=*(s++);
+            *(d)  ='\0';
+            break;
+        }
+    }
+  
+  fprintf (output_file, "<tr>");
+  fprintf (output_file, "<td class='format_name'><a href='javascript:o();'>%s", expanded_name);
+  {
+    int i;
+
+    fprintf (output_file, "<div class='tooltip' id='format_%p'>", babl);
+    fprintf (output_file, "<h3>%s</h3>", babl->instance.name);
+
+    fprintf (output_file, "<dl>");
+    fprintf (output_file, "<dt>bytes/pixel</dt><dd>%i</dd>", babl->format.bytes_per_pixel);
+    fprintf (output_file, "<dt>model</dt><dd>%s</dd>", BABL(babl->format.model)->instance.name  );
+    fprintf (output_file, "<dt>loss</dt><dd>%f</dd>", babl_format_loss (babl));
+    fprintf (output_file, "<dt>components</dt><dd><table class='nopad'>");
+
+    for (i=0; i< babl->format.components; i++)
+      {
+        fprintf (output_file, "<tr><td class='type'>%s</td><td class='component'>%s</td></tr>",
+         BABL(babl->format.type[i])->instance.name,
+         BABL(babl->format.component[i])->instance.name  );
+      }
+    fprintf (output_file, "</table></dd></dl>");
+
+    fprintf (output_file, "</div>\n");
+  }
+
+  fprintf (output_file, "</a></td>");
+  babl_format_each (table_destination_each, babl);
+  fprintf (output_file, "</tr>\n");
+  source_no++;
+  return 0;
+}
+
+void
+babl_fish_stats (FILE *file)
+{
+  output_file = file;
+
+  fprintf (output_file, 
+"<?xml version=\"1.0\" encoding=\"utf-8\"?>\n"
+"<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Strict//EN\" \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd\">\n"
+"<html>\n"
+"<head>\n"
+"<title>BablFishPath introspection</title>\n"
+
+   "<style type='text/css'>"
+   " body {"
+   "   font-family: sans;"
+   "   margin-left: 1em;"
+   " }"
+   " .cell {"
+   "  overflow : none;"
+   "  height: 1em;"
+   "  font-family: monospace;"
+   "  border: 1px solid #eee;"
+   "  padding: 0;"
+   "  margin : 0;"
+   "}"
+   ".cell>a {"
+   "    text-decoration: none;"
+   "    color: black;"
+   "    cursor: help;"
+   "}"
+   "div.tooltip {"
+   "   border: 0.2em solid black;"
+   "   padding-top: 1em;"
+   "   padding-right: 2em;"
+   "   display: none;"
+   "   padding-left: 2em;"
+   "   padding-bottom: 3em;"
+   "   background-color: white;"
+   "   background-repeat: no-repeat;"
+   "   background-image: url(graphics/babl-48x48.png);"
+   "   background-position: bottom right;"
+   "   color: black;"
+   "}"
+   " .cell>a:hover {"
+   "  background-color: black;"
+   "  color: white;"
+   "}"
+   " .format_name {"
+   "  height: 1em;"
+   "  background-color: #eee;"
+   "  padding-right: 0.5em;"
+   "  padding-left:  0.5em;"
+   "  border-bottom: 1px solid #fff;"
+   "}"
+   " .format_name>a {"
+   "  text-decoration: none;"
+   "  color: blue;"
+   "    cursor: help;"
+   " }"
+   " .format_name>a:hover {"
+   "  background-color: blue;"
+   "  color: white;"
+   " }"
+
+   "a:hover>div.tooltip {"
+   "   display: block;"
+   "   position: fixed;"
+   "   bottom: 0;"
+   "   right: 0;"
+   "}"
+
+   "td.component {"
+   "  background-color: #060;"
+   "  padding-left: 0.5em;"
+   "  padding-top: 0.1em;"
+   "  padding-bottom: 0.1em;"
+   "  overflow: hidden;"
+   "  width: 4em;"
+   "  color: white;"
+   "  border: 1px solid white;"
+   "}"
+   "td.type {"
+   "  background-color: #006;"
+   "  padding-left: 0.5em;"
+   "  padding-top: 0.1em;"
+   "  padding-bottom: 0.1em;"
+   "  overflow: hidden;"
+   "  width: 4em;"
+   "  color: white;"
+   "  border: 1px solid white;"
+   "}"
+   ".g {"
+   "  color: gray;"
+   "}"
+   ".r {"
+   "  text-align: right;"
+   "}"
+
+   "</style>"
+
+"<script type='text/javascript'>"
+"var tick_count=0;"
+"function o ()"
+"{"
+"   tick_count++;"
+"   if (tick_count == 11)"
+"        alert(\"«The mind is it's own place,\\nand in itself can make a heaven of hell;\\na hell of heaven.»\\n--Milton\");"
+"   else if (tick_count == 42)"
+"        alert(\"«So long and thanks for all the fish.»\\n--Adams\");"
+"}"
+"</script>"
+
+
+"</head>\n");
+
+  fprintf (output_file,  "<body>\n");
+
+  fprintf (output_file, "<h1>BablFishPath introspection</h1>");
+  fprintf (output_file, "<p>Instrumentation and pathlengths.</p>");
+
+  fprintf (output_file,  "<table cellspacing='0'><tr><td>Source format</td><td colspan='32'>Destination formats</td></tr>\n");
+
+  babl_format_each (table_source_each, NULL);
+
+  fprintf (output_file, "</table>");
+
+  fprintf (output_file, "<div style='height:20em'></div>\n");
+
+  fprintf (output_file, "</body></html>\n");
+}
+
diff --git a/babl/babl.c b/babl/babl.c
index 438a054..95619f0 100644
--- a/babl/babl.c
+++ b/babl/babl.c
@@ -52,6 +52,18 @@ babl_destroy (void)
 {
   if (!--ref_count)
     {
+      if (getenv ("BABL_STATS"))
+      {
+         char logfile_name[]="/tmp/babl-stats.html";
+         FILE *logfile;
+         logfile = fopen (logfile_name, "w");
+         if (logfile)
+           {
+            babl_fish_stats (logfile);
+            fclose (logfile);
+           }
+      }
+      
       babl_extension_destroy ();
       babl_fish_destroy ();
       babl_conversion_destroy ();
diff --git a/tests/babl_fish_path_dhtml.c b/tests/babl_fish_path_dhtml.c
index ddd384f..9405fc8 100644
--- a/tests/babl_fish_path_dhtml.c
+++ b/tests/babl_fish_path_dhtml.c
@@ -1,294 +1,12 @@
-/* perform a symmetricality of conversion test on a set of randomized
- * RGBA data */
-
 #include <stdlib.h>
-#include <math.h>
 #include "babl-internal.h"
 
-#define pixels  1024
-int total_length=0;
-int total_cost=0;
-int total = 0;
-int ok = 0;
-
-static double test[pixels * 4];
-
-static void
-test_init (void)
-{
-  int    i;
-
-  for (i = 0; i < pixels * 4; i++)
-     test [i] = (double)random () / RAND_MAX;
-}
-
-static int qux=0;
-
-static char *utf8_bar[]={" ","·","▁","▂","▃","▄","▅","▆","▇","█"};
-//static char *utf8_bar[]=  {"!","▁","▃","▅","▇","█","!","!","!"};
-//static char *utf8_bar[]={"·", "█", "▇", "▆", "▅", "▄", "▃", "▂", "▁", };
-//static char *utf8_bar[]={" ","1","2","3","4","5","6","7","8"};
-
-static int
-table_destination_each (Babl *babl,
-                        void *userdata)
-{
-  Babl *source = userdata;
-  Babl *destination = babl;
-
-  if ((qux++) % babl_formats_count () == qux/ babl_formats_count ())
-     printf ("<td class='cell'>&nbsp;</td>");
-  else
-    {
-      Babl *temp = babl_fish_path (source, destination);
-
-      if (temp)
-        {
-          printf ("<td class='cell'><a href='javascript:o()'>%s",
-          utf8_bar[temp->fish_path.conversions]);
-          total_length += temp->fish_path.conversions;
-          total_cost   += temp->fish_path.cost;
-
-          {
-            int i;
-            printf ("<div class='tooltip'>");
-            printf ("<h3><span class='g'>path</span> %s <span class='g'>to</span> %s</h3>", source->instance.name, destination->instance.name);
-            printf ("<table>\n");
-
-                printf ("<tr>");
-                printf ("<td><em>conversion</em></td>");
-                printf ("<td style='text-align:right'><em>cost</em></td>");
-                printf ("</tr>");
-
-             for (i=0; i< temp->fish_path.conversions; i++)
-               {
-                printf ("<tr>");
-                printf ("<td>%s</td>", BABL(temp->fish_path.conversion[i])->instance.name);
-                printf ("<td class='r'>%i</td>", BABL(temp->fish_path.conversion[i])->conversion.cost);
-                printf ("</tr>");
-               }
-
-                printf ("<tr>");
-                printf ("<td><em>total</em></td>");
-                printf ("<td class='r'><em>%3.0f</em></td>", temp->fish_path.cost);
-                printf ("</tr>");
-            printf ("</table>\n");
-            printf ("</div>\n");
-          }
-          printf ("</a></td>");
-          ok ++;
-          total ++;
-        }
-      else
-        {
-          printf ("<td class='cell'><a href='javascript:o()'>%s", "&nbsp");
-          {
-            printf ("<div class='tooltip'>");
-            printf ("<h3><span class='g'>Reference</span> %s <span class='g'>to</span> %s</h3>", source->instance.name, destination->instance.name);
-            printf ("</div>\n");
-          }
-          printf ("</a></td>");
-        }
-    }
-  return 0;
-}
-
-static int source_no=0;
-
-static int
-table_source_each (Babl *babl,
-                   void *userdata)
-{
-  char expanded_name[512];
-  const char *s;
-  char *d;
-
-  s=babl->instance.name;
-  d=&expanded_name[0];
-
-  while (*s)
-    {
-      switch (*s)
-        {
-          case ' ':
-            *(d++)='&';
-            *(d++)='n';
-            *(d++)='b';
-            *(d++)='s';
-            *(d++)='p';
-            *(d++)=';';
-            *(d)  ='\0';
-            s++;
-            break;
-          default:
-            *(d++)=*(s++);
-            *(d)  ='\0';
-            break;
-        }
-    }
-  
-  printf ("<tr>");
-  printf ("<td class='format_name'><a href='javascript:o();'>%s", expanded_name);
-  {
-    int i;
-
-    printf ("<div class='tooltip' id='format_%p'>", babl);
-    printf ("<h3>%s</h3>", babl->instance.name);
-
-    printf ("<dl>");
-    printf ("<dt>bytes/pixel</dt><dd>%i</dd>", babl->format.bytes_per_pixel);
-    printf ("<dt>model</dt><dd>%s</dd>", BABL(babl->format.model)->instance.name  );
-    printf ("<dt>loss</dt><dd>%f</dd>", babl->format.loss );
-    printf ("<dt>components</dt><dd><table class='nopad'>");
-
-    for (i=0; i< babl->format.components; i++)
-      {
-        printf ("<tr><td class='type'>%s</td><td class='component'>%s</td></tr>",
-         BABL(babl->format.type[i])->instance.name,
-         BABL(babl->format.component[i])->instance.name  );
-      }
-    printf ("</table></dd></dl>");
-
-    printf ("</div>\n");
-  }
-
-  printf ("</a></td>");
-  babl_format_each (table_destination_each, babl);
-  printf ("</tr>\n");
-  source_no++;
-  return 0;
-}
-
 int main (void)
 {
   babl_init ();
-  test_init ();
 
   babl_set_extender (babl_extension_quiet_log ());
-
-  printf (
-"<?xml version=\"1.0\" encoding=\"utf-8\"?>\n"
-"<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Strict//EN\" \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd\">\n"
-"<html>\n"
-"<head>\n"
-"<title>BablFishPath introspection</title>\n"
-
-   "<style type='text/css'>"
-   " body {"
-   "   font-family: sans;"
-   "   margin-left: 1em;"
-   " }"
-   " .cell {"
-   "  overflow : none;"
-   "  height: 1em;"
-   "  font-family: monospace;"
-   "  border: 1px solid #eee;"
-   "  padding: 0;"
-   "  margin : 0;"
-   "}"
-   ".cell>a {"
-   "    text-decoration: none;"
-   "    color: black;"
-   "    cursor: help;"
-   "}"
-   "div.tooltip {"
-   "   border: 0.2em solid black;"
-   "   padding-top: 1em;"
-   "   padding-right: 2em;"
-   "   display: none;"
-   "   padding-left: 2em;"
-   "   padding-bottom: 3em;"
-   "   background-color: white;"
-   "   background-repeat: no-repeat;"
-   "   background-image: url(graphics/babl-48x48.png);"
-   "   background-position: bottom right;"
-   "   color: black;"
-   "}"
-   " .cell>a:hover {"
-   "  background-color: black;"
-   "  color: white;"
-   "}"
-   " .format_name {"
-   "  height: 1em;"
-   "  background-color: #eee;"
-   "  padding-right: 0.5em;"
-   "  padding-left:  0.5em;"
-   "  border-bottom: 1px solid #fff;"
-   "}"
-   " .format_name>a {"
-   "  text-decoration: none;"
-   "  color: blue;"
-   "    cursor: help;"
-   " }"
-   " .format_name>a:hover {"
-   "  background-color: blue;"
-   "  color: white;"
-   " }"
-
-   "a:hover>div.tooltip {"
-   "   display: block;"
-   "   position: fixed;"
-   "   bottom: 0;"
-   "   right: 0;"
-   "}"
-
-   "td.component {"
-   "  background-color: #060;"
-   "  padding-left: 0.5em;"
-   "  padding-top: 0.1em;"
-   "  padding-bottom: 0.1em;"
-   "  overflow: hidden;"
-   "  width: 4em;"
-   "  color: white;"
-   "  border: 1px solid white;"
-   "}"
-   "td.type {"
-   "  background-color: #006;"
-   "  padding-left: 0.5em;"
-   "  padding-top: 0.1em;"
-   "  padding-bottom: 0.1em;"
-   "  overflow: hidden;"
-   "  width: 4em;"
-   "  color: white;"
-   "  border: 1px solid white;"
-   "}"
-   ".g {"
-   "  color: gray;"
-   "}"
-   ".r {"
-   "  text-align: right;"
-   "}"
-
-   "</style>"
-
-"<script type='text/javascript'>"
-"var tick_count=0;"
-"function o ()"
-"{"
-"   tick_count++;"
-"   if (tick_count == 11)"
-"        alert(\"«The mind is it's own place,\\nand in itself can make a heaven of hell;\\na hell of heaven.»\\n--Milton\");"
-"   else if (tick_count == 42)"
-"        alert(\"«So long and thanks for all the fish.»\\n--Adams\");"
-"}"
-"</script>"
-
-
-"</head>\n");
-
-  printf ( "<body>\n");
-
-  printf ("<h1>BablFishPath introspection</h1>");
-  printf ("<p>The table below represents many of the possible conversions available through babl, (the selection of formats includes all formats that shortcut conversions have been registered for.) </p>");
-  printf ("<p>Hover your mouse over a formats name, or a non blank cell on the horizontal line to see further information, both rows and colums represent pixel formats, but only the vertical axis has labels.</p>");
-
-  printf ( "<table cellspacing='0'>\n");
-  babl_format_each (table_source_each, NULL);
-  printf ("</table>");
-
-  printf ("<div style='height:20em'></div>\n");
-
-  printf ("</body></html>\n");
+  babl_fish_stats (stdout);
 
   babl_destroy ();
 
-- 
2.30.2